﻿Module Module1
  Sub Main()
    Console.WriteLine("Esempio 1")
    Dim coda As New Queue
    Dim matrice() _
        As String = {"Gennaio", "Febbraio", _
        "Marzo", "Aprile", "Maggio", _
        "Giugno", "Luglio", "Agosto", _
        "Settembre", "Ottobre", _
        "Novembre", "Dicembre"}
    For i As Integer = 0 To 11
      coda.Enqueue(matrice(i))
    Next
    Console.WriteLine("N. elementi " & _
        "presenti prima " & _
        "dell'estrazione: " & coda.Count)
    For i As Integer = 0 To 11
      Console.WriteLine(coda.Dequeue())
    Next
    Console.WriteLine("N. elementi " & _
        "presenti dopo " & _
        "l'estrazione: " & coda.Count)
    Console.WriteLine()
    Console.WriteLine("Esempio 2")
    coda = New Queue
    For i As Integer = 0 To 11
      coda.Enqueue(matrice(i))
    Next
    Console.WriteLine("N. elementi " & _
        "presenti prima " & _
        "dell'estrazione: " & coda.Count)
    For i As Integer = 0 To 3
      Console.WriteLine(coda.Peek())
    Next
    Console.WriteLine("N. elementi " & _
        "presenti dopo " & _
        "l'estrazione: " & coda.Count)
    Console.ReadLine()
  End Sub
End Module
